home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Gooey 2.xpl < prev    next >
Text File  |  2001-01-22  |  4KB  |  137 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Internet\Instant Messaging\GOOEY"
  5. "NAME"="Settings #1"
  6. "VERSION"="1.03"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Configure connect port automatically (default: on)"
  9. "TEXT 2"="Enable Proxy Server"
  10. "TEXT 3"="Start Gooey on startup of Windows"
  11. "TEXT 4"="Connect to Gooey when opening browser"
  12. "DESCRIPTION 1"="Some more options for Gooey."
  13. "DESCRIPTION 2"="Gooey may be obtained at http://www.gooey.com/"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  19.  
  20.  
  21. '-- ONLY CHANGE THE LINES WITHOUT ' at the beginning !!
  22. '
  23. '*** Xteq Systems "On/Off" Plug-in Template ***
  24. '*** ID_XQ_PT1 V1.00 
  25.  
  26.  ' how many settings are in this file (change "COUNT=" also!) 
  27.  CountSettings=4
  28.  
  29.  ' does this plug-in requires the user to logoff or to restart his PC?
  30.  bRequireLogoff=False
  31.  bRequireRestart=False
  32.  
  33.  ' if this path exists in the registry, the plug-in will be enabled. if it does
  34.  ' not exist, the plug-in will be disable set to ="" to ignore this check and alway
  35.  ' enable the plug-in, regardless if the path exists or not
  36.  sCheckPath="HKCU\Software\Hypernix\Gooey\"
  37.  
  38.  
  39.  ' Settings for Value # 1
  40.  sV1_Path="HKCU\Software\Hypernix\Gooey\Network\UseAutoPort" 
  41.  sV1_OnValue="1"      'what is the "ON" value (e.g. "1", "True", "On" etc.)
  42.  sV1_OffValue="0"      'what is the "OFF" value (e.g. "0", "False", "Off" etc.)
  43.  sV1_DataType="2"     'datatype of this value (REG_STRING=1, REG_DWORD=2, REG_BINARY=3, REG_EXPAND_SZ=4)
  44.  
  45.  ' Settings for Value # 2
  46.  sV2_Path="HKCU\Software\Hypernix\Gooey\Network\ProxyEnable" 
  47.  sV2_OnValue="1"      
  48.  sV2_OffValue="0"      
  49.  sV2_DataType="2"     
  50.  
  51.  ' Settings for Value # 3
  52.  sV3_Path="HKCU\Software\Hypernix\Gooey\Environment\OpenNixOnStart" 
  53.  sV3_OnValue="1"      
  54.  sV3_OffValue="0"      
  55.  sV3_DataType="2"     
  56.  
  57.  ' Settings for Value # 4
  58.  sV4_Path="HKCU\Software\Hypernix\Gooey\Environment\ConnectOnStart" 
  59.  sV4_OnValue="1"      
  60.  sV4_OffValue="0"      
  61.  sV4_DataType="2"     
  62.  
  63.  ' Settings for Value # 5
  64.  sV5_Path="HKCU\Software\Hypernix\Gooey\Network\AllwaysOntop" 
  65.  sV5_OnValue="1"      
  66.  sV5_OffValue="0"      
  67.  sV5_DataType="2"     
  68.  
  69. '*** Xteq Systems "On/Off" Plug-in Template ***
  70. '
  71. '-- STOP CHANGES HERE !!
  72.  
  73.  
  74.  
  75. Sub Plugin_Initialize 
  76.  If Len(sCheckPath)>0 then
  77.     if left(sCheckPath,1)<>"\" then sCheckPath=sCheckPath & "\"
  78.  
  79.     b=RegPathExists(sCheckPath)
  80.     if b=true then
  81.        Call ReadSettings
  82.     else
  83.        Call Disable
  84.     end if  
  85.  else
  86.     Call ReadSettings
  87.  end if
  88. End Sub
  89.  
  90. Sub ReadSettings
  91.                            Call ReadSettingsEx(1,sV1_Path,sV1_OnValue)
  92.   if CountSettings>=2 then Call ReadSettingsEx(2,sV2_Path,sV2_OnValue)
  93.   if CountSettings>=3 then Call ReadSettingsEx(3,sV3_Path,sV3_OnValue)
  94.   if CountSettings>=4 then Call ReadSettingsEx(4,sV4_Path,sV4_OnValue)
  95.   if CountSettings>=5 then Call ReadSettingsEx(5,sV5_Path,sV5_OnValue)
  96. End Sub
  97.  
  98. Sub ReadSettingsEx(ID,REGP,VALON)
  99.  s=RegReadValue(REGP)
  100.  'Call DebugMsg("VAL:" & s & " ID:" & ID & " VAL_ON:" & VALON)
  101.  if CStr(s)=VALON then
  102.     Call SetUIElement(ID,true)
  103.  End if 
  104. End Sub
  105.  
  106.  
  107. Sub Plugin_CheckData(ElementIndex)
  108. End Sub
  109.  
  110.  
  111. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  112.                           Call WriteSettings(GetUIElement(1),sV1_Path,sV1_OnValue,sV1_OffValue,sV1_DataType)
  113.  if CountSettings>=2 then Call WriteSettings(GetUIElement(2),sV2_Path,sV2_OnValue,sV2_OffValue,sV2_DataType)
  114.  if CountSettings>=3 then Call WriteSettings(GetUIElement(3),sV3_Path,sV3_OnValue,sV3_OffValue,sV3_DataType)
  115.  if CountSettings>=4 then Call WriteSettings(GetUIElement(4),sV4_Path,sV4_OnValue,sV4_OffValue,sV4_DataType)
  116.  if CountSettings>=5 then Call WriteSettings(GetUIElement(5),sV5_Path,sV5_OnValue,sV5_OffValue,sV5_DataType)
  117.  
  118.  
  119.  if bRequireLogoff then Logoff()
  120.  if bRequireRestart then Restart()
  121. End Sub
  122.  
  123. Sub WriteSettings(CUR_VAL,REGP,ON_VAL,OFF_VAL,DAT_TYPE)
  124.   if CUR_VAL=true then
  125.      Call RegWriteValue(REGP,ON_VAL,DAT_TYPE)
  126.   else
  127.      Call RegWriteValue(REGP,OFF_VAL,DAT_TYPE)
  128.   end if
  129. End Sub
  130.  
  131.  
  132. Sub Plugin_Terminate 
  133. End Sub
  134.  
  135.  
  136.  
  137.